﻿Public Class KNThanNhan
    Private dt As New Database_
    Private sql As String
    Public Function DSTN() As DataTable
        sql = "select * from THANNHAN"
        Dim data As DataTable = dt.execQuery(sql)
        Return data
    End Function
    Public Function SaveTN(ByVal data As DataTable) As Boolean
        sql = "select * from THANNHAN "
        Return dt.ExecUpdate(sql, data)
    End Function
End Class
